home *** CD-ROM | disk | FTP | other *** search
/ Virtual Sex - Are You Up for It? / Virtual Sex.iso / pc / gsex.inf < prev    next >
Text File  |  1995-06-18  |  4KB  |  145 lines
  1. DefineVariables
  2. ;;********************************************************************
  3. ;; Install of Virtual Sex software for windows
  4. ;;********************************************************************
  5.  
  6.   
  7.   Text    [CompanyName] := VCA Interactive
  8.   Text    [ProductName] := Virtual Sex
  9.   Text    [ProductName1] := Install QuickTime 2.0  
  10.   Text    [ProductName2] := Uninstall QuickTime 2.0
  11.   Text      [TopLine]    := " INSTALLING [ProductName]  "
  12.  
  13.   Text      [ExpressSetupDescription]    := Install Virtual Sex
  14.  
  15.   
  16.   Text    [LogoBitMap]  := VCA.BMP    
  17.   Text    [ReadFile]    := VCAREAD.WRI             
  18.   Text    [ReadCmdLine] := write.exe
  19.   Text    [ReadPath]
  20.   Text    [IconFile]    := VCA.ICO
  21.   Text    [IconPath]    
  22.   Text    [ProgFile]    := VIRTUAL.EXE
  23.   Text    [ProgPath]
  24.   Text    [ProgFile1]   := SETUP.EXE
  25.   Text    [ProgPath1]
  26.   Text    [ProgFile2]   := UNQTW.EXE
  27.   Text    [ProgPath2]
  28.  
  29. EndDefineVariables
  30. Procedure DDENonFatalErrorTrap
  31.  
  32.  
  33. ;; Purpose of DDENonFatalErrorTrap:
  34. ;; If a procedure with this name is present in the script and a non-fatal
  35. ;; Program Manager DDE error occurs, then this procedure will be executed.
  36. ;; 
  37. ;; Possible Text Error Codes Are:
  38. ;;      ddeExec%s failed      (NOTE:  the "%s" is replaced by error types)
  39. ;;      ddeInitiate failed
  40. ;;      pmAddItem failed
  41. ;;      pmClose failed
  42. ;;      pmCreateGroup failed
  43. ;;
  44. ;; To trap a DDENonFatalError and respond to it, use the following code
  45. ;; [Number1] := PositionOf "PMAddItem" in DDENonFatalError
  46. ;; If [Number1] > 0 
  47. ;;    Dialog
  48. ;;      NonFatal error in AddItem occurred
  49. ;;      Error Text : DDENonFatalError
  50. ;;    EndDialog
  51. EndProcedure
  52.  
  53.  
  54.  
  55. ;; Setup logo and screen
  56. SetDefaultBitmap off
  57. LoadBitMap 1 [LogoBitMap]
  58. ShowBitMap 1 @xy(420,320)
  59. SetBackgroundColor 0 0 255 0 0 64 TopToBottom
  60. ShowWindow Maximized
  61.  
  62.  
  63. Dialog
  64.   
  65. Installation of "[ProductName]" is completely non-invasive. 
  66. A new icon and/or program group, "[CompanyName]", will be 
  67. created in your program manager.
  68.  
  69. Please press "OK" to proceed with "[ProductName]" installation.
  70.  
  71. EndDialog
  72.  
  73. Dialog WhiteOnBlue
  74.  
  75. **********************WARNING**********************
  76.  
  77. QuickTime ver. 1.0 and ver. 2.0 are incompatible.
  78. For your convenience you may install or un-install 
  79. QuickTime ver. 2.0 from the "VCA Interactive" Program Group.
  80.  
  81. Please press "OK" to proceed with "[ProductName]" installation.
  82.  
  83. EndDialog
  84.  
  85. CreateDirectoryIfNecessary C:\VCA
  86.  
  87. If FileExists C:\VCA\UNQTW.EXE
  88. SetFileAttrTo 00 for c:\VCA\UNQTW.EXE
  89. SetFileAttrTo 00 for c:\VCA\UNQTW.INF
  90. SetFileAttrTo 00 for c:\VCA\VCA.BMP
  91. EndIf
  92.  
  93. SetCopyAttrTo 00
  94. CopyFiles from [InstallFromDrive]:\PC to C:\VCA quietly
  95. UNQTW.EX_ as UNQTW.EXE
  96. UNQTW.IN_ as UNQTW.INF
  97. VCA.BMP
  98. EndCopyFiles
  99.  
  100.  
  101.  
  102. ;;**************************************************
  103. ;;Find the files for the program and icons
  104. ;;**************************************************
  105. [IconPath] := FullPathTo [IconFile] Search AllFixed Quietly
  106. [ProgPath]  := FullPathTo [ProgFile] Search AllFixed Quietly
  107. [ReadPath]  := FullPathTo [ReadFile] Search AllFixed Quietly
  108. [ProgPath1]  := FullPathTo [ProgFile1] Search AllFixed Quietly
  109. [ProgPath2]  := FullPathTo [ProgFile2] Origin=C:\VCA Quietly
  110.  
  111.  
  112. ;;**************************************************
  113. ;; Create the windows program group.
  114. ;;**************************************************
  115. ProgramManagerDDe
  116.   CreateGroup([CompanyName])
  117.   ReplaceItem([CompanyName])
  118.   DeleteItem([ProductName])
  119.   AddItem([ProgPath],[ProductName],[IconPath])
  120.   DeleteItem([ProductName1])
  121.   AddItem([ProgPath1],[ProductName1])
  122.   DeleteItem([ProductName2])  
  123.   AddItem([ProgPath2],[ProductName2])
  124.   DeleteItem([ReadFile])  
  125.   AddItem([ReadPath],[ReadFile])
  126. EndProgramManagerDDE
  127.  
  128.  
  129.  
  130.  
  131. ;; Exit dialog box and messages
  132. Dialog
  133.   [ProductName] installation is complete.
  134.   Enjoy!
  135. EndDialog
  136.  
  137.  Dialog PressAKey WhiteOnBrown
  138.  
  139.     Thanks again and best wishes.  You'll find new
  140.     information in file VCAREAD.WRI
  141.  
  142.   EndDialog
  143.  
  144. EndScript
  145.